<%

Dim ID	
Dim RI_Pic			
Dim RI_Pic_B		

Dim RI_Name			
Dim RI_Address		
Dim RI_City			
Dim RI_Developer	
Dim RI_Sell_No		
Dim RI_Start_Price	
Dim RI_Avg_Price	
Dim RI_Open_Date	
Dim RI_Start_Date	
Dim RI_Sell_Phone	
Dim RI_Detail		

Dim RI_WY			
Dim RI_CX			
Dim RI_ZDMZ			
Dim RI_JZXS			
Dim RI_ZXZK			
Dim RI_JZMZ			
Dim RI_CW			
Dim RI_HX			
Dim RI_JGSJ			
Dim RI_JDZJ			
Dim RI_JXZJ			
Dim RI_GHSJ			
Dim RI_LSJK			


Dim RI_JTZK			
Dim RI_ZBPT			
Dim RI_SXFW	

Dim RI_Status
Dim Update_Name
Dim Update_Date

Dim Action
Dim Info_ID
Sub Get_Data()

	
	RI_Pic	= Reform("RI_Pic")			
	RI_Pic_B = Reform("RI_Pic_B")		

	RI_Name = Reform("RI_Name")			
	RI_Address = Reform("RI_Address")		
	RI_City = Reform("RI_City")			
	RI_Developer = Reform("RI_Developer")	
	RI_Sell_No = Reform("RI_Sell_No")		
	RI_Start_Price = Reform("RI_Start_Price")	
	RI_Avg_Price = Reform("RI_Avg_Price")	
	RI_Open_Date = Reform("RI_Open_Date")	
	RI_Start_Date = Reform("RI_Start_Date")	
	RI_Sell_Phone = Reform("RI_Sell_Phone")	
	RI_Detail = Reform("RI_Detail")		

	RI_WY = Reform("RI_WY")			
	RI_CX = Reform("RI_CX")			
	RI_ZDMZ = Reform("RI_ZDMZ")			
	RI_JZXS = Reform("RI_JZXS")			
	RI_ZXZK = Reform("RI_ZXZK")			
	RI_JZMZ = Reform("RI_JZMZ")			
	RI_CW = Reform("RI_CW")			
	RI_HX = Reform("RI_HX")			
	RI_JGSJ = Reform("RI_JGSJ")			
	RI_JDZJ = Reform("RI_JDZJ")			
	RI_JXZJ = Reform("RI_JXZJ")			
	RI_GHSJ = Reform("RI_GHSJ")			
	RI_LSJK = Reform("RI_LSJK")			


	RI_JTZK = Reform("RI_JTZK")			
	RI_ZBPT = Reform("RI_ZBPT")			
	RI_SXFW = Reform("RI_SXFW")			
	RI_Status = Reform("RI_Status")			

	Update_Name		= Session("Admin_UserName")
	Update_Date		= now()
	
End Sub 
Sub Info_Action()
	Info_ID = Get_ID("Info_ID")
	If Info_ID=0 Then 
		Call Add()
	Else
		Call Edit()
	End If 
End Sub 
Sub Add()	
	

	Call Get_Data()

	sql = "INSERT INTO Realestate_Info( " &_
		" RI_Pic"&_			
		",RI_Pic_B"&_		

		",RI_Name"&_			
		",RI_Address"&_		
		",RI_City"&_			
		",RI_Developer"&_	
		",RI_Sell_No"&_		
		",RI_Start_Price"&_	
		",RI_Avg_Price"&_	
		",RI_Open_Date"&_	
		",RI_Start_Date"&_	
		",RI_Sell_Phone"&_	
		",RI_Detail"&_		

		",RI_WY"&_			
		",RI_CX"&_			
		",RI_ZDMZ"&_			
		",RI_JZXS"&_			
		",RI_ZXZK"&_			
		",RI_JZMZ"&_			
		",RI_CW"&_			
		",RI_HX"&_			
		",RI_JGSJ"&_			
		",RI_JDZJ"&_			
		",RI_JXZJ"&_			
		",RI_GHSJ"&_			
		",RI_LSJK"&_			


		",RI_JTZK"&_			
		",RI_ZBPT"&_			
		",RI_SXFW"&_			
		",RI_Status"&_			

		",Update_Name"&_
		",Update_Date"&_

		") VALUES( " &_
		" '"&RI_Pic&"'"&_			
		",'"&RI_Pic_B&"'"&_		

		",'"&RI_Name&"'"&_			
		",'"&RI_Address&"'"&_		
		",'"&RI_City&"'"&_			
		",'"&RI_Developer&"'"&_	
		",'"&RI_Sell_No&"'"&_		
		","&RI_Start_Price&_	
		","&RI_Avg_Price&_	
		",'"&RI_Open_Date&"'"&_	
		",'"&RI_Start_Date&"'"&_	
		",'"&RI_Sell_Phone&"'"&_	
		",'"&RI_Detail&"'"&_		

		",'"&RI_WY&"'"&_			
		",'"&RI_CX&"'"&_			
		",'"&RI_ZDMZ&"'"&_			
		",'"&RI_JZXS&"'"&_			
		",'"&RI_ZXZK&"'"&_			
		",'"&RI_JZMZ&"'"&_			
		",'"&RI_CW&"'"&_			
		",'"&RI_HX&"'"&_			
		",'"&RI_JGSJ&"'"&_			
		",'"&RI_JDZJ&"'"&_			
		",'"&RI_JXZJ&"'"&_			
		",'"&RI_GHSJ&"'"&_			
		",'"&RI_LSJK&"'"&_			


		",'"&RI_JTZK&"'"&_			
		",'"&RI_ZBPT&"'"&_			
		",'"&RI_SXFW&"'"&_	
		",'"&RI_Status&"'"&_	
		
		",'"&Update_Name&"'"&_
		",'"&Update_Date&"'"&_
		")"

    conn.execute(sql)

	AlertBox "增加成功！","Realestate_Info_Query.asp"


End Sub

Sub Edit()	


	Call Get_Data()
	Info_ID = Reform("Info_ID")
	Call Check_IsNumeric(Info_ID)

	sql = "UPDATE Realestate_Info Set " &_
		" RI_Pic='"&RI_Pic&"'"&_			
		",RI_Pic_B='"&RI_Pic_B&"'"&_		

		",RI_Name='"&RI_Name&"'"&_			
		",RI_Address='"&RI_Address&"'"&_		
		",RI_City='"&RI_City&"'"&_			
		",RI_Developer='"&RI_Developer&"'"&_	
		",RI_Sell_No='"&RI_Sell_No&"'"&_		
		",RI_Start_Price="&RI_Start_Price&_	
		",RI_Avg_Price="&RI_Avg_Price&_	
		",RI_Open_Date='"&RI_Open_Date&"'"&_	
		",RI_Start_Date='"&RI_Start_Date&"'"&_	
		",RI_Sell_Phone='"&RI_Sell_Phone&"'"&_	
		",RI_Detail='"&RI_Detail&"'"&_		

		",RI_WY='"&RI_WY&"'"&_			
		",RI_CX='"&RI_CX&"'"&_			
		",RI_ZDMZ='"&RI_ZDMZ&"'"&_			
		",RI_JZXS='"&RI_JZXS&"'"&_			
		",RI_ZXZK='"&RI_ZXZK&"'"&_			
		",RI_JZMZ='"&RI_JZMZ&"'"&_			
		",RI_CW='"&RI_CW&"'"&_			
		",RI_HX='"&RI_HX&"'"&_			
		",RI_JGSJ='"&RI_JGSJ&"'"&_			
		",RI_JDZJ='"&RI_JDZJ&"'"&_			
		",RI_JXZJ='"&RI_JXZJ&"'"&_			
		",RI_GHSJ='"&RI_GHSJ&"'"&_			
		",RI_LSJK='"&RI_LSJK&"'"&_			


		",RI_JTZK='"&RI_JTZK&"'"&_			
		",RI_ZBPT='"&RI_ZBPT&"'"&_			
		",RI_SXFW='"&RI_SXFW&"'"&_			
		",RI_Status='"&RI_Status&"'"&_			

		",Update_Name ='"&Update_Name&"'"&_
		",Update_Date ='"&Update_Date&"'"&_

		" WHERE RI_ID = "&Info_ID

    conn.execute(sql)

	AlertBox "修改成功！","Realestate_Info_Query.asp"

End Sub

Sub Del()

	Info_ID = Reform("OP_ID")

	sql = "DELETE FROM  Realestate_Info WHERE ID IN ( "&Info_ID &")"

    conn.execute(sql)

	AlertBox "删除成功！","Realestate_Info_Query.asp"
	
End Sub

Sub Get_Info(ID)

	Info_ID = Get_ID(ID)
	If Info_ID=0 Then 
		Action = "增加"
		Exit Sub 
	End If 

	Sql = "SELECT * FROM Realestate_Info WHERE RI_ID="&Info_ID


	Set rs = conn.execute(sql)
	
	If Not rs.eof Then
		RI_Pic = rs("RI_Pic")			
		RI_Pic_B = rs("RI_Pic_B")		

		RI_Name = rs("RI_Name")			
		RI_Address = rs("RI_Address")		
		RI_City = rs("RI_City")			
		RI_Developer = rs("RI_Developer")	
		RI_Sell_No = rs("RI_Sell_No")		
		RI_Start_Price = rs("RI_Start_Price")	
		RI_Avg_Price = rs("RI_Avg_Price")	
		RI_Open_Date = rs("RI_Open_Date")	
		RI_Start_Date = rs("RI_Start_Date")	
		RI_Sell_Phone = rs("RI_Sell_Phone")	
		RI_Detail = rs("RI_Detail")		

		RI_WY = rs("RI_WY")			
		RI_CX = rs("RI_CX")			
		RI_ZDMZ = rs("RI_ZDMZ")			
		RI_JZXS = rs("RI_JZXS")			
		RI_ZXZK = rs("RI_ZXZK")			
		RI_JZMZ = rs("RI_JZMZ")			
		RI_CW = rs("RI_CW")			
		RI_HX = rs("RI_HX")			
		RI_JGSJ = rs("RI_JGSJ")			
		RI_JDZJ = rs("RI_JDZJ")			
		RI_JXZJ = rs("RI_JXZJ")			
		RI_GHSJ = rs("RI_GHSJ")			
		RI_LSJK = rs("RI_LSJK")			


		RI_JTZK = rs("RI_JTZK")			
		RI_ZBPT = rs("RI_ZBPT")			
		RI_SXFW = rs("RI_SXFW")		
		RI_Status = rs("RI_Status")		
		
		Update_Name    = rs("Update_Name")
		Update_Date    = rs("Update_Date")

	End If

	Action="修改"
End Sub 
Function Get_ID(Info_ID)
	If Request.ServerVariables ("Request_Method")="POST" Then
		ID = reform(Info_ID)
	Else
		ID = requery(Info_ID)
	End If 
	If IsNumeric(ID)=False Then 
		Get_ID = 0
	Else
		Get_ID = ID
	End If 
End Function 
%>


